home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / amigaguide.raz < prev    next >
Text File  |  1994-09-05  |  1KB  |  47 lines
  1. /** $VER: AmigaGuide.raz 1.0 (22.4.94)
  2.  **
  3.  ** Affiche l'autodoc AmigaGuide du mot qui est sous le curseur
  4.  ** Inspiré largement de GetXRef.ttx 2.0 (30.10.91) de David N. Junod
  5.  ** fournis avec l'ensemble AmigaGuide
  6.  **
  7.  ** Si vous ne travaillez pas sur l'écran AZur (option SZ de AZur)
  8.  ** enlevez l'option : pubscreen "AZur Screen"
  9.  **
  10.  ** Ajouter les lignes suivantes à votre fichier S:user-startup
  11.  **   RX "AddLib( 'amigaguide.library', 0, -30 )"
  12.  **   RX "LoadXRef( 'autodocs.xref' )"
  13.  **/
  14.  
  15. OPTIONS RESULTS
  16.  
  17. PARSE ARG mode
  18.  
  19. GetWord
  20. word = RESULT
  21. function = word||"()"    /* ajoute les parenthèses */
  22.  
  23. xref = 0
  24. line = GetXRef( function )
  25. IF line = 10 THEN DO
  26.     function = word
  27.     line = GetXRef( function )
  28.     IF line ~= 10 THEN xref = 1
  29.     END
  30. ELSE xref = 1
  31.  
  32. IF ~SHOW( 'P', 'AUTODOCS' ) THEN DO   /* pas de fenêtre ouverte */
  33.     IF xref = 0 THEN      /* charge une database */
  34.         cmd = 'run AmigaGuide '||function||' portname AUTODOCS pubscreen "AZur Screen" requester'
  35.     ELSE                  /* charge un document */
  36.         cmd = 'run AmigaGuide document '||function||' portname AUTODOCS pubscreen "AZur Screen" requester'
  37.     ADDRESS COMMAND cmd
  38.     END
  39. ELSE DO
  40.     link = "Link"
  41.     IF mode = "ASYNC" THEN link = "ALink"
  42.     IF xref = 0 THEN cmd = link||" "||function||"/main"      /* charge une database */
  43.     ELSE cmd = link||" "||function     /* charge un document */
  44.     ADDRESS AUTODOCS cmd
  45.     ADDRESS AUTODOCS "windowtofront"
  46.     END
  47.